2 PRINTCHR$(147);
3 DEFFNY(X)=SIN(X)
4 DEFFNZ(X)=COS(X)
5 :
6 FORX=0TO100STEP.3
7 Y=FNY(X):Y=INT(Y*10+.5)
8 Z=FNZ(X):Z=INT(Z*10+.5)
9 T1=Y+20:T2=Z+20
10 PRINTTAB(T1)"*":PRINTCHR$(145);
11 PRINTTAB(T2)"*"
13 NEXTX
14 PRINT"[147]"
15 END: